unit uFormAddTimeExecuting;

interface

uses
  Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms,
  uConstantTimeExecuting,
  Dialogs, uFormAddModel, uObjectActionTimeExecuting, StdCtrls, Mask,
  DBCtrls, DB, Classes, ActnList, ExtCtrls,
  uObjectAction, System.Actions, Vcl.Buttons;

type
  TFormAddTimeExecuting = Class(TFormAddModel)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
  public
    { Public declarations }
    FObjectActionTimeExecuting: TObjectActionTimeExecuting;
    procedure AfterConstruction; override;
  end;

implementation

{$R *.dfm}

uses uObjectDaoTimeExecuting;

{ TFormAddTimeExecuting }

procedure TFormAddTimeExecuting.AfterConstruction;
begin
  inherited;
  FObjectActionTimeExecuting := (GetObjectAction as TObjectActionTimeExecuting);
end;

initialization

RegisterClass(TFormAddTimeExecuting);

end.
